00100		SUBROUTINE PLOT(A,B,L)
00110		DIMENSION JJ(4000)
00120		DATA X/-500./,C/200./,NX/1/
00200		IF(M.EQ.0)CALL DPYSET(1,JJ,4000)
00205		IF(L.EQ.-3)GO TO 3
00210		M=-1
00250		J=A*C+X
00275		K=B*C
00300		IF(L.EQ.3)GO TO 1
00400		CALL AVECT(J,K)
00500		GO TO 2
00600	1	CALL AIVECT(J,K)
00700	2	CALL DPYOUT(1)
00710		RETURN
00720	3	X=X+200
00800		END
00900		SUBROUTINE SYMBOL(A,B,C,D,E,F)
01000		END